home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / zendisk1.zip / LST10-3.ASM < prev    next >
Assembly Source File  |  1990-02-15  |  396b  |  21 lines
  1. ;
  2. ; *** Listing 10-3 ***
  3. ;
  4. ; Loads a byte into AL 1000 times via MOV, with no
  5. ; INC performed.
  6. ;
  7.     jmp    Skip
  8. ;
  9. ARRAY_LENGTH    equ    1000
  10. ByteArray    db    ARRAY_LENGTH dup (0)
  11. ;
  12. Skip:
  13.     call    ZTimerOn
  14.     mov    si,offset ByteArray
  15.             ;point to the start of the array
  16.     rept    ARRAY_LENGTH
  17.     mov    al,[si]    ;get this array byte but don't point
  18.             ; to the next byte in the array
  19.     endm
  20.     call    ZTimerOff
  21.